
POST /accounts/ClientLogin HTTP/1.0
Content-type: application/x-www-form-urlencoded

accountType=HOSTED_OR_GOOGLE&Email=jondoe@gmail.com&Passwd=north23AZ&service=writely&
   source=Gulp-CalGulp-1.05&logintoken=DQAAAGgA...dkI1LK9&logincaptcha=brinmar
(require 'http-post-simple)
(setq resp (http-post-simple "https://www.google.com/accounts/ClientLogin" '((accountType . "GOOGLE")
                                                                  (Email . "qingant@gmail.com")
                                                                  (Passwd . "huanhuan")
                                                                  (service . "writely")
                                                                  (source . "qingant-selfabuse-1.0"))))
(message resp)
(setq auth (car resp))
(string-match "Auth" auth)
(setq myauth (substring auth (+ 459 5) -1))
Authorization: GoogleLogin auth=yourAuthValue
(setq url "https://docs.google.com/feeds/default/private/full")
(call-process "curl" nil nil nil
              (concat "-D Authorization: GoogleLogin auth=" myauth " " url) )
(url-retrieve-synchronously (url-http-create-request))
(url)
(url-retrieve)
(url-http-create-request)
(url-retrieve (concat url "?" "Authorization: GoogleLogin auth=" myauth "&GData-Version: 3.0")
str
(url-attributes)
(setq str (buffer-string-by-name str))
(stringp str)
(message str)
(call-process "curl" nil "*curl*" t url)
str
(require 'url)
(url-retrieve-synchronously "http://www.g.cn")
(url-info)
(defun abc (fn i j)

  (funcall fn i j))
(defun laf (heihei)
      (list 'lambda  '(i j) (list '+ 'i 'j heihei)))
(setq haha (eval (laf 3)))
(setq dd (laf 3))
(funcall haha 1 2)
(setq lala (eval-expression dd))
(eval '(+ 1 2))
(funcall lala 1 2)
(setq a1 1)
'(a b a1)
(funcall `(lambda (a) (+ a 1)) 2)
(defun laf (a)
  (progn
    (setq heihei a)
      (lambda   (i j) (+ i j heihei))))
(laf 1)
(abc (laf 1) 3 4)
heihei
